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LABEL OOOQQQOOOCOPRIATEROO175098CC cX OBVECT/READSFILE SOURCEFILE=SYMBUL/STATS3SENUE OBYECT /READ 


: SYMBOLATATSS 
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* 2 * . 5 a eS x. . 
o & Bs b CS & & 3 5 & : 


a: 


BEGINS STANDARD SYSTEM SYSTEM#STATISTICS FILE ANALYSIS, 00000100 
COMMENT! * TITLE? B5500/B5700 MARK XIv SYSTEM RELEASE * 00000110 @ 
_____ Perea OF BOK © 0 ky es Ms luce ge OU ne re eae es 
* THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION « 00000112 ; 
* AND IS NOT TO BE REPROOUCEDs USEDse UR DISCLUSED * 00000113 1@ 
EXCEPT _IN ACCORDANCE WITH PROGRAM LICENSE OR UPON » 00000134 3 
* WRITTEN AUTHORIZATION UF TRE PATENT OIVISION OF * 000004115 ‘ 
* BURROUGHS CORPORATION» VETRUITs MICHIGAN 48232 * 00000116 5|@ 
x * OQ0O01I7 6 
* COPYRIGHT (C) 1971» 1972 BURROUGHS CORPORATION * 000001418 eee. ; 
| * &A320206 AA3B6657 ' #3 00000119 3|@ 
FILE PRINT 4¢2015 _ 00000200 === : : 
DISK DISK SERIAL (2%6060)» 00900300 yl 
CARD (2010)3 00000400 |@ 
12) 
LO nn wen eetamotanmnnaawnnmame FOAM ATS aA nero tenanmwaamemwnmanamaeenen (000600 : ; 13 
00000700 |@ 
ORMA AG," 3" bHecza"&",A * A Ai. _. 00000800 Rese tats ea ol HS 
FSCAGs™ =",2(F6, 29S" oALe TOs» "eF4el)ds 00000900 16 
HO (XBe"® OF [/O"eX3e"# T/O"MeX50"%6 OF CHAR™SX4e"TOTAL SEGS"sX 3» 00901000 |@ 
"SE /0O")» LOO OO son caitter ie pie Get Ne he oR te 8 ga El ee ki 
DWC"AVG, DISK DELAY = "sf7,3e" SECSe™")>» 00001200 kei 
TDC"TOTAL DISK DELAY = "sF7,30" MINSe")> 00001300 4 @ 
a *, ra iad ial iets 5.04) IG Hee RE acetal nn a ac tN SS a a 
TMC"™TIME SINCE LAST HALT/LUAD IS "s]l2s" HOURS ANU ", 00001500 2 
las" MINUTES") JeLCMSTATISTICS FROM Mol2enimMeteen aN "e0s 00001600 73 @ 
“ To Wf ep OF ae AM te eh a tee Dt ee eee, ye 24 
NOPPRBRNACIZEDH OTTER CI BUSY oLesri 00001800 ‘ 
DISKHOR{"OTSK ANO coe, I/O ACTIVITY") » 00001900 3 @ 
MF MIQHDRC% iM oft OOU0OZ000 : 

SY STEMHOR ("SYSTEM ACTIVITY =)» 00002100 
IOHDRIC"DISK I/0°")> 00002200 9 @ 
NHOR "OTHER tek O10 0300 ee ‘i 

IOHDR3OC"TOTAL I/0"")>» 00002400 2 
UNDERLINE ( Reewmeam anna tanaamt), 00002500 sa| @ 
TOTS! HDR("TOTAL (DISK AND AUXMEN) 1/0 acTiviTY ="); Sng Fee Oe ert eT i 
00002700 
Between Me ew ate a wae rwa aaa ew en ame R Banana ene saneaenamanamemmm en ()()()) 2800 a ® 
rr IO OAIOD 5 
ARRAY ACOS6LIsLOGLOSL] »SUMSTATLOM 6013 00003000 a 
REAL TOTAL sSEGTOT >» Yel, STARTIME sENDT IME» AP2; 00003100 , 9 @ 
REAL OTHERIOsTOTIOs/DISKTO 00003200 3 
BOOLEAN RUNTOTAL*SEGS sENDTOG »BEGINTUGS 00003300 7 
LABEL EOF sDOAGAINS 00003400 |@ 
oe ee ee eee Se er ans e eateries een OOOU R500... ...; 
STREAM PROCEDURE SCANFILECLOG)3 ee pe 00003600 : 
BEGIN REAL LOCAL2sLOCALI3 ie a 00003700 : 4@ 
SIts_OGs DIsFLoc LOCALS ene 006003800 4g 
DIltsOlet; 00003900- 46 
7CIF eae THEN OSt=LIT" " ELSE OSt= CHR) 00004000 17 @ 
S[:2Sl+43 oO saD]+13 09004100 


OSt=7? CHR} Be ; 00004200 as oo 49 
, Steatoc LOCAL). PHL oGk Lge . Boag 00004300 ? | eo s| @ 
OS + #16 hlgbies a hoe ee LE : 00004400 i 51 
ENO; ; 00004500 5: 
Jute nmea teen sannemae tenn nana naw awaaa nant enaeanwatenaneanonsesasemamaseen (004600 5. @ 
PROCEDURE PP(P1,P2.P3)5 VALUE P1,R2-P33 REAL PlePesP33 00004700 eae ee ee 
BEGIN. iene : oe 00004800 : ; : 55 
AP2ESALABS(P2)33 | 00004900 . | si @ 
IF P2 45S 0 THEN BEGIN. waisdnbihais atP2dimape 1 $23) END ELSE 00005000 - gt a 
e@ °® 
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oon mo Om FF WH — 


OOO09s00 


ACP2]3*AP2,[24324])3 00005100 
IF ACP2] NEQ O THER 00005200 
ise EO Ba 2h Re en OT SE rea eT aCe ee Te Ee) 9 > Zc (9) 0 eee 
WRITECPRINTsG#PLe ALP2I/TOTALx100» (TOLAL*ALP2) I/TOTALx100) 00005400 
ELSE 00005500 
WR PR ae Pe x100)3 
AL P2] teAP23 00005700 
END3 00005800 
Le seas eS eee tena Mase eee tae TSE Saw eEeee Pe OeE aE Seven ma wena sea()()()()5 00 
PROCEDURE RCRisR2)3 VALUE RieR2s REAL RieR23 00006000 
BEGIN REAL AR2} : 009006100 
AR2t2ACABS(R2) 13 Sh Sa a a Nana cn te et OO OPO aril phos uct Poe 
IF R2 LSS 0 THEN BEGIN R2?sABS(R2)3 aAlRe] i =aRe.f1223) End ELSE 00006300 
ALR2)§2AR2,[( 24224]; 00006400 
goa Se al NE 00 NEN cn 2S Se a eg ee UNO R ON toh oe, 
BEGIN IF RUNTOTAL THEN AlLOJ:salOJ#ALR2]3 00006600 
IF RUNTOTAL THEN AL3O0]*=AL30]"ALR2+3033 é 00006700 
sos ESS TE oe a et OO ON BAND ose 
BEGIN 00006900 
WRITECPRINTsFSeR1s(ACR2I7TOTALXIOU) ss "sACR2Is 00007000 
END ELSE 00007200 
WRITE CPRINTsF oe Sarees Taal eiUosvenrKea io 00007300 
SN a cere A en ee OM EOS 
ALR2]t#AR2;3 00007500 
END3s 00007600 
pase Oe ae Cee Pee ee ne eterna een Been Serene ne teas wen nnanewowoawawowraNOQO07700. 
DEF INE 00007800 
PCP1s,P2)5PP(P{.P2.Q)4%>5 00007900 
QOL »pO2eO03ER(Qi2O3)s ALOBZIISTOTAL*PALQ3)4 R(O20Q: 90008000 
BKEFWRITECPRINT) #3 00008100 
00008200 
RPP www es wes wa wat eeemaeme™ VA BOD ee ee on oe FT ae OF oe me Oe ee OP OF em on a oe te () () R200 
: ; 00008400 
READCCARDs 2eLOG([*3 33 00008500 
A 0 H 00008400 
FILL DISK WITH LOG(O),L0G(1);3 00008700 
BEGINTOGS=TRUES 00008800 
DOAGAIN$ 00008900 
READ (COISKs60,AC*J )CECFI3 00009000 
IF ALOJ = REALCNOT FALSE) THEN 00009100 
: 00009200 
BEGIN 00009300 
FOR 1880 STEP 1 UNTIL 59 DO alls sSUMSTATCII:, 00009400 
AC29)3SENDOTIMES 00909500 
ENDTOGS sTRUE3 . 00009600 
END ee : 00009700 
IF SIN be THEN ercln STARTIME? =A 4713 BEGINTOGssFALSE ENDS 00009900 
FOR [#=Q STEP 1 UNTIL 27 DO SUMSTATEIIZ=SUMSTATCII+AC II; 00010000 
FOR t=30 STEP NT 46 DO SUMSTATEI J] ssSUMSTATLII+A 3 000 0400 
FOR yt#48 STEP 4 UNTIL 59 00 SUNSTATE LI )@SUMSTATCTI$AC 135 ov 00010200 
SUMSTAT(281¢=A(2013 eee | | - 00010300 
END hes : ee ae “e oe ie es - 900108600 
00010500 
BKS WRITECPRINTCPAGE) )3 00010600 
WRITECPRINT*TM2 Alt) DIV 246000%A[1]/43600 MON 60)5 . 00010700 
IF ENDTOG THEN PN ee ae : 00040800 
WRITECPRINT#L» STARTIME ‘OIV 216000¢ STARTIME/ ee ete 00010900 
3600 OD 60sAC2B8)sAl29) OLV 2160002AL29)73600 MOU. 60eAl28)) . 00011000 


or n~ m9 TN B® Wr = 
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ELSE 00011100 
WRITECPRINTsL*AL47) DIV 21600GrAL47]/ 3000 MOD ol» 00011200 e 
_AL2B81sAL29) DIV 216000sAl29I1/3000 MUU 60sAl281)5 00011300 . 5, ANE tere gtialassath ac ltt Sates Oy ee 5 Se 
ALOJS#MAXCALO19AC2))3 00011400 le 
DISKTOTALS2TOTALSsAlLOI3 00011500 
STOT3BAL3IO); = =— De SOPOT VRBO) Se euch oe das ont 3 
TOTIOSSACOI+(COTHERIOZ=A(5B1,CIFZII+AL5SB] Cans eale 00011700 ‘le 
AC29},01223)+A(59).,024324)); 00011806 2 
Po = 12 2 ee ea pit i ee ee ee er OO OEE OOO a aaa 6 
WRITECPRINTsOWs AL 32I/TOTAL/60)3 00012000 \e 
WRITECPRINTs TD2AC32343600)3 00012100 : 
BK3 Need A sate oA eee ee ee We tee fue 
WRITECPRINTsDISKHDR)3 00012300 ‘e 
WRITECPRINTs UNDERLINE )3 00012400 : 
PBF nets hoes a ts As ast Sea PaO Ed cea aa i lh aS ohare Vile ans eget UO LO ach eset ace tases Seco 2 
WRITE CPRINT#HD)3 00012600 ‘1@ 
BK3 00012700 Na 
SEGS:=TRUES RC"TOTAL "4093 SEGSISFALSE3 7 00012800 7 
Yean,n; 00012900 ‘@ 
BK3 00013000 y 
QC™DKA MO DB a NO Fs aN eT eh OO OT SOO nace eosin Sn Ne 
BK3 00013200 ‘le 
RC"EU O %4)3 00013300 i 
" Ug AY BS 0 a sn et a Fo OO RO Ota ee tte ee ee sh ee I a] 
RC"EU 2 %s5)3 00013500 ar 
Bee 3 s"5)3 00013600 ie 
; A AI NP Fae NE sis AP St ey eae ot ears ES POG 10 ce cae ee te nay a ee Ro oe St 24 
WRITE (PRINT? TOHOR1 D3 00013800 . 1@ 
BK3 00013900 ay 
BN eh a adh he NS a te OOo Fea ae ee gaa ieee aT PORTE RUE IN VO NS eee NerteC  eOCTD a 
R("I9 2 "93693 00014100 72 e 
RC"IQ 3 %,"35)3 00014200 ae 
RC"IO %,"36)3 Date peaches a Ae ee a ew, - 
BK3 00014400 1@ 
WRITECPRINTs IOHDR2)3 00014500 2 
BK3 Sd Sg aod ei a pk os Se Se Oe ee te ew OAM GOO * RR Tee, eee tec eT ee 
TOTAL 2=0THERIQS; 00014700 
RO"I0 1 "55893 00014800 3@ 
_RC"JO 2 55973 DOG RM OOO ee 3 
R("Jo 3) "s"58)3 00015000 7 
RO"IO 4 5859) 00015100 34@ 
BK3 = 00015200 39 
WRITECPRINTsIOHOR3)3 00015300 40 
TGTALS=TOTIO3 00015400 «|@ 
BK3 00015500 _ ag 
ALSO) C24t2gTt=A (58) ,C24t ahd 4A 35), leds oa)3 00015600 ; 4 
ALS97,0C249246 Jt salS9), C2424 )4Al 36) ,1 24224); 00045700 : a® 
ACSBI Cis ZzIFsAlC58) eC ys 23IFAl 35).0 1823); 00015800 _ 45 
AC29),01223)8=A(59) ,061223)+AL36),[1li23); 00015900 16 
RO"I0 4% 58)5 00016000 hd 
RC"I0 2 %459)3 d 00016300 42 
RO"10 3) Ms958)3 . 00016200 49 
RC"I0 4 "995995 00016300 | ea | | @ 
_BK ge 00016400 as pF 
TOTAL S=A(0]3 00046500 5 e 
BK3 00016600 53 
QC"NORMAL"s"CONTRL"59)3 00016700, ——sss 5 
BK3 00016800 iS 
RUNTOTAL #®TRUES 00016900 | oj @ 
SEGS ie TRUES 00017000 oe d 
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rs) —— a es a 
RCM"ESP "alt; 00017100 
e@ RO"DOIRECT%s12)3 00017200 @ 
' SETTAB AD Ge Re SN a Sa re ype te ep re a ee ee el OMIT SOO. a0, seen teed teres eee ge eee et 
RC"NAMES "226)3 00017400 
@ RC"LOG "243 00017500 
3 COS tos Se a nl aE ee OE? We Sen eect 
4 BK3 00017700 
@|: RC"CODE M"s10)3 00017800 
6 BK COUT F000 isc Sho re 
: RC"CODE "»20)3 00018000 
@ | RC"DATA 92293 | 00018100 
i 1 a Oe tee POND Pe aa Lee scr Seem eee ee 9 Y 9%) 2 > 5 « SMR ee ee a eet 
9 RC"FILES s27)3 00018300 
er RUNTOTALS=FALSE3 00018400 
ab ae Paar SP a aad aes tel Ee ee et lt OO BO Os he 2 
RC“OTHER "20)3 00018600 
"4 SEGSt=F ALSES 00018700 
a oe Delete Na pti MeN aa tt a are a Eo es cere cee OO Oe et aoe ot et 
13 WRITE CPRINT» AUXMEMIOHDR)3 00018900 
@” WRITECPRINT»*UNDERLINE)3 00019000 
ti aI Se 0h ator ec ah cata A et in te ee tet ING UNO oe sen ea 
7 WRITE CPRINT*HD D3 00019200 
@ BK 00019300 
f OTALtsAC37)5 SEGTOTISALC4OI+ACSI)3 C0 IHOO 
P RC™AUXMEM"s 37)3 00019500 
e7 SEGSt=TRUE} 00019600 
RO"CODE A™.19)5 7 6h ot ee, Se es a OOD BOO cg ames 3p ioecatesdaddertee anaes 
RC"DATA As24)3 00019800 
SEGSI=@F ALSES 00019900 
ACIIJI=TOTALTSTOTAL+DISKTOTALS SEGTOT*=SEGTOT+AlSO]+alS2)5 = on020000, i 
ALOJt=DISKTOTALS 00020100 
BK3 00020200 
WRITECPRINT»sTOTALHDR)5 0020300 
BK3 00020400 
RO"TOTAL "193 00020500 
RO"DISK s0)3 _00020800... 
RC™AUXMEM"» 37) 3 00020700 
SEGSt=TRUES 00020800 
FRG CO DES A PO i eg i = OOOO UO. tus as a 
RC"DATA -A™s2h)3 00021000 
SEGS1=F ALSES | 00021100 
BK 3 oF ee ee 
WRITECPRINT» SYSTEMHDR)3 00021300 
WRITE (PRINT sUNDERLINE )3 00021400 
BK a te re OOS PEO Oakes 
WRITECPRINT*BI)3 00021600 
TOTAL SsAC3)3 00021700 


PC"SYSTEM"s1433 00021800 
FOR ye=4 STEP 1 UNTIL 2 DO 00021900 

BEGIN 00022000 

PC™AUXMEM", 44 )3 00022100 


PC"OKA "e7)3 PC"OKS 


"58)) PC"BOTH 
PC™NRM PL%,9623 PCMNRM P2%93403 
PPC"NOLAPLs 3901)3 PPCMNOLAP2"9"3901)2 


"si7)s PCMPROCL "26)3 


00022200 
00022300 
09022400 


PPC™CTOLAP" +4351 )3 00022500 

IF Y#i THEN 00022600 
ae i ee es OU CAT OG at ceo ors 

WRITECPRINT#N)3 : 00022800 

TOTAL SPACL4S IS 00022900 


Nils . 


ye 
one orexe 
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ENDS 00023400 
IF ENDTOG THEN GO TO ENF ELSE 00023200 © 
B aL aes Ayla ot lt i AP Oe ace rie en tee alt ee he te 
ENDTIMESSAC 2913 00023400 
GO TO DOAGAINS 00023500 /@ 
__ennp 7-1 7 5 V1.1. 3 
GQ TO DOAGAINS 00023700 ‘ 
EQFs’ END,» 0002380C |@ 
—ENDSEND, sss“ XSLAST CARD UN GCRDING TAPE 99999999 Rew ee as or = 8 


seme A RE SN EIA A A APIS SERIE Tureen ererinenrers cevoues Gen de ia wee ctbvssed sums cig tuna vacate 
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LABEL OOOQOOO00PRIATEROOLZ5098CC EX UBVECT/REAUSFILE SOURCEF ILESSYMBOL/STATS33 ENE OBJECT /READ 
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a gh sat a sce atime 
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